home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs59.d81 / macros2.seq (.txt) < prev    next >
GEOS ConVerT  |  2009-10-10  |  2KB  |  49 lines
  1.  'natesMacros
  2. SEQ formatted GEOS file V1.0
  3. 1525-80dpi
  4. K&text manager
  5. BLASTER'S CONVERTER V2.5
  6. Swap File
  7. Write Image V2.1
  8. geoWrite    V2.1
  9. .Macros by:  Nate Fiedler
  10. These are used in the HE source code.
  11. ;************************************************
  12. ;    Macros for use with geoProgrammer
  13. ;    By:  Nate Fiedler
  14. ;    Also from:  
  15. THE HITCHHIKER'S GUIDE TO GEOS
  16. ;************************************************
  17. .macro    IncW    addr
  18.  inc addr
  19.  bne done
  20.  inc addr+1
  21. done:
  22. .endm
  23. .macro    SubVB    value,dest
  24.  lda    dest
  25.  sbc    #value
  26.  sta    dest
  27. .endm
  28. .macro    SubVW    value,dest
  29.  lda    dest+0
  30.  sbc    #[(value)
  31.  sta    dest+0
  32. .if (value >= 0) && (value <= 255)
  33.  bcs    noInc
  34.  dec    dest+1
  35. noInc:
  36. .else
  37.  lda    dest+1
  38.  sbc    #](value)
  39.  sta    dest+1
  40. .endif
  41. .endm
  42. .macro    DecW2    addr    ;this macro was
  43.  lda    addr        ;found in the
  44.  bne    noover        ;Hitchhiker's Guide
  45.  dec    addr+1
  46. noover:
  47.  dec    addr
  48. .endm
  49.